      subroutine dumflx

      use param

#include <global.h>
      include 'ntbytes.h'
      include 'geom.h'
      include 'geomf.h'
      include 'setls.h'
      include 'eigv.h'

      do im=1,ng
        do imt=1,2
          avgflx(imt,0,im)=avgflx(imt,1,im)
          avgflx(imt,tnode+1,im)=avgflx(imt,tnode,im)
          psphi(imt,0,im)=psphi(imt,1,im)
          psphi(imt,tnode+1,im)=psphi(imt,tnode,im)
          aflx(imt,0,im)=aflx(imt,1,im)
          aflx(imt,fnode+1,im)=aflx(imt,fnode,im)
          pphi(imt,0,im)=pphi(imt,1,im)
          pphi(imt,fnode+1,im)=pphi(imt,fnode,im)
        enddo
      enddo
     
      end subroutine
